home *** CD-ROM | disk | FTP | other *** search
/ Windows 6-Pak - Disc 4 / Windows 6-Pak (InfoMagic) (Disc 4) (1999).ISO / Text-Chat-Addins / C-Script.exe / Sysfiles / Remote / tools.mrc < prev    next >
Encoding:
Text File  |  1998-05-16  |  7.6 KB  |  123 lines
  1. ;C-Script v5.0 ⌐ 1998 C-Team. All rights reserved.
  2. ;Configure at your own risk
  3. ;Remote Tools file
  4.  
  5. #autoapt on
  6. on 1:connect: {
  7.   if ($right($server,7) == dal.net) { set %autoapt on | netpopsu aust | netpopsl dalnet | netpopsu espr | netpopsu undernet | netpopsu anothernet | netpopsu csrv | netpopsu newnet | netpopsu oz | netpopsu k9 | set %autoapt off }
  8.   elseif ($right($server,12) == undernet.org) { set %autoapt on | netpopsu aust | netpopsl undernet | netpopsu espr | netpopsu dalnet | netpopsu anothernet | netpopsu csrv | netpopsu newnet | netpopsu oz | netpopsu k9 | set %autoapt off }
  9.   elseif ($right($server,12) == CIRCANet.Org || $server == irc.C-Script.com) { set %autoapt on | netpopsu aust | netpopsl espr | netpopsu csrv | netpopsu undernet | netpopsu anothernet | netpopsu dalnet | netpopsu newnet | netpopsu oz | netpopsu k9 | set %autoapt off }
  10.   elseif ($right($server,11) == ChatNet.Org) { set %autoapt on | netpopsu aust | netpopsl k9 | netpopsu espr | netpopsu oz | netpopsu undernet | netpopsu anothernet | netpopsu csrv | netpopsu newnet | netpopsu dalnet | set %autoapt off }
  11.   elseif ($right($server,11) == another.net) { set %autoapt on | netpopsu aust | netpopsl anothernet | netpopsu espr | netpopsu undernet | netpopsu dalnet | netpopsu csrv | netpopsu newnet | netpopsu oz | netpopsu k9 | set %autoapt off }
  12.   elseif ($right($server,10) == newnet.net) { set %autoapt on | netpopsu aust | netpopsl newnet | netpopsu espr | netpopsu undernet | netpopsu dalnet | netpopsu csrv | netpopsu anothernet | netpopsu oz | netpopsu k9 | set %autoapt off }
  13.   elseif ($right($server,9) == esper.net) { set %autoapt on | netpopsu aust | netpopsl espr | netpopsu csrv | netpopsu undernet | netpopsu anothernet | netpopsu dalnet | netpopsu newnet | netpopsu oz | netpopsu k9 | set %autoapt off }
  14.   elseif ($right($server,6) == oz.org) { set %autoapt on | netpopsu aust | netpopsl oz | netpopsu espr | netpopsu undernet | netpopsu anothernet | netpopsu csrv | netpopsu newnet | netpopsu dalnet | netpopsu k9 | set %autoapt off }
  15.   elseif ($right($server,11) == austnet.org) { set %autoapt on | netpopsl aust | netpopsu oz | netpopsu espr | netpopsu undernet | netpopsu anothernet | netpopsu csrv | netpopsu newnet | netpopsu dalnet | netpopsu k9 | set %autoapt off }
  16.   else { set %autoapt on | netpopsu k9 | netpopsu espr | netpopsu dalnet | netpopsu undernet | netpopsu anothernet | netpopsu csrv | netpopsu newnet | netpopsu oz | set %autoapt off }
  17. }
  18. #autoapt end
  19. #seen on
  20. on 1!:JOIN:#:writeini sysfiles\seen\seen.ini nicks $fx($nick) join $fx($nick) $fx($address) $fx($chan) $fx($ctime)
  21. on 1!:PART:#:writeini sysfiles\seen\seen.ini nicks $fx($nick) part $fx($nick) $fx($address) $fx($chan) $fx($ctime)
  22. on 1!:QUIT:writeini sysfiles\seen\seen.ini nicks $fx($nick) quit $fx($nick) $fx($address) IRC $fx($ctime)
  23. on 1:TEXT:!seen *:* {
  24.   if ($nick ison $chan) { set %seencmnd msg $chan | goto next }
  25.   else { set %seencmnd msg $nick | goto next }
  26.   :next
  27.   if ($2 == $me) { %seencmnd Hey $nick $+ . I'm right here! | halt }
  28.   if ($2 == $nick) { describe $chan wonders if $nick has multiple personalities?┐ | halt }
  29.   if ($2 ison $chan) { %seencmnd $nick $+ : Look in front of you. $2 is here. | halt }
  30.   %seen = $readini -n sysfiles\seen\seen.ini nicks $fx($2)
  31.   if (%seen == $null) { describe $chan has never seen $2 $+ . Sorry! | halt }
  32.   else {
  33.     if ($gettok(%seen,1,32) == join) { set %seen2 joining }
  34.     if ($gettok(%seen,1,32) == part) { set %seen2 parting }
  35.     if ($gettok(%seen,1,32) == quit) { set %seen2 quiting from }
  36.     set %seen I last saw $gettok(%seen,2,32) ( $+ $gettok(%seen,3,32) $+ ) %seen2 $gettok(%seen,4,32) $asctime($gettok(%seen,5,32))
  37.     %seencmnd $fx2(%seen)
  38.   }
  39. }
  40. #SEEN end
  41. #autospell on
  42. on 1:INPUT: {
  43.   if ($left($active,2) == @á || $left($active,2) == @# || $active == @statusáwindow) { halt }
  44.   if ($left($1,1) == / && $group(#recent) == on) { addrec command $1 }
  45.   if (($left($active,1) == $chr(35) || $left($active,1) == $chr(61) || $query($active) != $null) && ($left($1,1) != / || $left($1,3) == /me || $left($1,4) == /say) && ($right($1,1) != %nckeywrd)) {
  46.     if ($left($1,3) == /me) { if ($len($1) > 3) { return } | set %spcmnd me | set %spelltmp1 $2- | set %spelltmp2 $ispell($2-) }
  47.     elseif ($left($1,4) == /say) { if (($len($1) > 4) { return } | set %spcmnd say | set %spelltmp1 $2- | set %spelltmp2 $ispell($2-) }
  48.     elseif ($left($1,1) != /) { set %spcmnd say | set %spelltmp1 $1- | set %spelltmp2 $ispell($1-) }
  49.     set %spltmpt 0
  50.     else { goto done2 }
  51.     :next
  52.     inc %spltmpt
  53.     if ($gettok(%spelltmp1,%spltmpt,32) == $null) { goto done }
  54.     if ($gettok(%spelltmp1,%spltmpt,32) != $gettok(%spelltmp2,%spltmpt,32)) {
  55.       set %tmp 1 | echo  $+ $clr(info) $+ *** Spell Check - Word: $gettok(%spelltmp1,%spltmpt,32) Result: $gettok(%spelltmp2,%spltmpt,32)
  56.     }
  57.     goto next
  58.     :done
  59.     if (%tmp == $null) && ($gettok(%spelltmp1,1,32) != $gettok(%spelltmp2,1,32)) { echo  $+ $clr(info) $+ *** Spell Check - Word: $gettok(%spelltmp1,1,32) Result: $gettok(%spelltmp2,1,32) }
  60.     %spcmnd %spelltmp2
  61.     unset %spelltmp*
  62.     unset spltmpt %spcmnd
  63.     halt
  64.     :done2
  65.     %spcmnd %spelltmp2
  66.     unset %spelltmp*
  67.     unset spltmpt %spcmnd
  68.     halt
  69.   }
  70.   :done5
  71.   return
  72. }
  73. #autospell end
  74. #vercheck off
  75. on 1:sockopen:vercheck: {
  76.   if (%verchkcntdwn == 50 || %verchkcntdwn == 51 || %verchkcntdwn == 52 || %verchkcntdwn == 53) {
  77.     if ($server != $null && $bits != $null) { sockwrite -n vercheck GET /cgi-bin/vccount3.pl?server= $+ $getdom($server) $+ &bits= $+ $bits }
  78.     else { sockwrite -n vercheck GET /cgi-bin/vccount3.pl?server=Not_Available $+ &bits=Not_Available }
  79.   }
  80.   else { sockwrite -n vercheck GET %verpath }
  81. }
  82. on 1:sockread:vercheck: {
  83.   if ($sockerr > 0) { return }
  84.   sockread %curver2
  85.   sockread %curnews
  86. }
  87. on 1:sockclose:vercheck: if ($sockerr > 0) { halt } | set %verchkcntdwn 1 | .disable #vercheck | vercheck
  88. #vercheck end
  89. #recent on
  90. on me:1:JOIN:#:addrec channel #
  91. on me:1:PART:#:addrec channel #
  92. on 1:TOPIC:#: if ($nick == $me) addrec topic $1-
  93. on me:1:NICK:addrec nick $newnick
  94. on 1:open:=: if ($remove(=$nick,=) != $me) { addrec chat $chat($remove(=$nick,=)).ip --> $remove(=$nick,=) | addrec chatn $remove(=$nick,=) --> $chat($remove(=$nick,=)).ip }
  95. on 1:open:?:addrec query $nick
  96. on 1:FILERCVD:*:addrec filercvd $filename
  97. on 1:FILESENT:*:addrec filesent $filename
  98. on 1:INPUT: {
  99.   if ($left($1,1) == /) { addrec command $1 }
  100.   return
  101. }
  102. #recent end
  103. on 1:DNS: {
  104.   if (%web.dns != on && %mail.dns != on && %mserver.dns != on) {
  105.     if ($raddress == $null) { echo -s  $+ $clr(other) $+ *** Unable to resolve $nick $naddress  | unset %mserver | unset %pporspset | .timer649 off | halt }
  106.     else { echo -s  $+ $clr(other) $+ *** $nick IP DNS Address: $iaddress ( $+ $longip($iaddress) $+ ) ( $+ $naddress $+ ) | halt }
  107.   }
  108. }
  109. on 1:close:=: { if ($nick == %me) { set %dccoffline Yes | set %comsndr Off | .disable #vercheck | .creq ask } }
  110. on 1:CLOSE:@Socket:if (%sock.connected) { sockdiscon }
  111. on 1:SOCKOPEN:Socket:if ($sockerr == 4) { echo @Socket 4* Unable to resolve %sock.srv | sockclose Socket | unset %sock.* } | elseif ($sockerr > 0) { echo @Socket 4* Unknown error | sockclose Socket | unset %sock.* } | else { echo @Socket 3* Connected }
  112. on 1:SOCKCLOSE:Socket:echo @Socket 12* Disconnected | unset %sock.*
  113. on 1:SOCKWRITE:Socket:echo @Socket 05 $+ %sock.send
  114. on 1:SOCKREAD:Socket:{
  115.   if ($sockerr > 0) { echo @Socket 4* Error recieving data | return }
  116.   :nextread
  117.   sockread %sock.read
  118.   if ($sockbr == 0) { return }
  119.   if (%sock.read == $null) { set %sock.read $chr(255) }
  120.   echo @Socket %sock.read
  121.   goto nextread
  122. }
  123.